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ALL RIGHTS RESERVED. 
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SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
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00 ; 
i Assem'ily parameters 
00000200 000 ‘ BUF SIZE = 512 ; Size in bytes of slipr input buffers 
0000008 4 SIZE = 13 ; Size of input command Line 
00 ; AMDEF 
00 SRABDEF 
00 $F ABDEF 
i SCLIDEF 
99 ; Edit node offsets 
00000000 00 40 ° EDSL_FwD = 0 ; Forward pointer 
00000004 000 S EDSL_BWD = 4 ; Backword pointer 
4h 8 000 4 ED$SW_LOC1 = 8 ; Locator 
000 00 4 ED$W_LOC2 = 19 ; Locator 2 
i C . 4 EDSW_LINES = 1 ; Insert Lines 
i 4 EDSW_RFA = 14 ; Record file address (3 words) 
0 1 6 EDSL_FILE = 20 ; File node pointer 
3 8 4 EDSB_FLAGS = 24 : ags 
1 2 EDSB_FILENO= 25 ; File number 
0000001 : EDSK_BLN = 26 
: File node offsets 
08 0 SLPSL_FWD = 0 ; Forward pointer 
4 SLPSL_BWD = 4 ; Backward pointer 
00 8 SLP$W_LOC1 = 8 ; Locator-1 
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Comment Soseripter 
NAM block 


SLPSK_BLN LP$T_NAM + NAMSK_BLN 


sMACRO ERRMSG NAME,LIST 
$$ = 0 
IRP peer 
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0 USHL 

0 $$=$$+1 
ENDR 

0 PUSHL #$$ 

0 OVL #MERS_'NAME’,RO 
PUSHL 

0 CALLS #$$+2,G*LIBSSIGNAL 

0 -ENDM = ERRMSG 


Macro to print error message 
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DIGITAL EQUIPMENT CoRPORATION, MAYNARD, MASSACHUSETTS. 


ALL RIGHTS RESERVED. 
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Procedure to prompt yser to seventy a list of input files 

and a Singie output file. east one input file must be 
supplied. The eh Le witt continue to prompt for input files 
pk Least one is supplied. The single output file 

S optiona 
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SNAMDEF 
$F ABDEF 
0000 . .PSECT S$CODE,EXE,NOWRT 
GET_FILES:: 
0000 -WORD 0 
6D OOOO0'CF ODE 108 MOVAL W*GET_HANDLER, (FP) ; Set condition handler 
OOSO'CF OOO1'CF ODE ; MOVAL W*PROMPT_INPUT+1 ; Set up read prompt string 


w*CMD INPUT RABSRABSL _PBF 
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4 
4 
2 
0034"CF OO00'CF 90 0 4 MOVB W*PROAPT 
1 4 w°CMD_ TMU "RAG +RABSB_ PSZ 
1¢ 10 1 4 BSB Put rl LES™ Get input files 
18 50 «£9 1 BLBC R $ : If any errors start again 
28 o : ey Ril : If zero input files given reprompt 
OO30'CF OOO1'CF ODE 1 MOVAL W*PROMPT _OUTPUT+1 j Set up ‘Output’ prompt string 
w*CMD_I NPUT RAB+RABSL_P 
0034'CF QOO00'CF 90 MOVB Ua PROMPT PUT, 
W*CMD input _RABSRABSB_ PSZ 
0167 30 BSBW OUTPUT F ; Get output file 


L 5 
vourOO8 "BrSEb=18be feise:81 Leumvercisumeivessnan;1 = P28 cf 
00 50 =€9 008 28 208: BLBC RO,20$ ; If any errors start again 
04 @..-;- oat 


7 mS 
vou O00 INPUT_FILES MerSee=] ORs PEikei sy PAMAMES Macro vOE-OO, , = Page 3, 


¢ -SBTTL INPUT_FILES 
4: 
: ; Subroutine to get input files 
6 : Inputs: 
rt: ; 2 Non 
$3 : Outputs: 
re 3 RO = Success/error status 
4g : 7 
74 INPUT_FILES: 
5B 04 00 75 CLRL R :_Initialise input files count 
0030'CF BERR ce D 8 6 MOVL W*DEF NAME+4 W*INPUT FAB+FABSL DNA ; Set default file name 
0035'CF OOO'CF 9 > 4 100 MOVB W“DEF “NAME ,W“ INPUT_FAB+F ABSB_DNS 
56 0000'CF BF 4 8 ’ MOVAL W*INPUT_BUF ,R6 ; Set address to put file name string 
gt 4 0 SBW GETFILE 3; Get next file 
2 56 +] 48 1 BLBC RO,4 ; Error if LBC 
5 5 4 § TSTB R : Is file spec null (0 bytes)? 
18 (1 036 BNEQ 30$ ; No if NEQ 
5B OD 05 4 TSTL R11 ; Any files yet? 
Fs 1 bee 85 BNEQ 20$ : Yes if NEQ 
1€ 58 =«OC Ba38 Hy 208 BLBS R8,40$ ; End of List if LBS 
0059 88 "ERRMSG NULLFS ; Report error 
OA 11 93 8 $08 BRS 40$ 
58 06 Boer 91 ; INCL R11 ; Increment file number 
07~— 1 per 3 BSB INPUT_ SPEC 3; Process spec 
03 50 €9 0071 g BLBC RO,408 ; Error if LBC 
cc 58 E9 0074 94 BLBC R8,10$ ; More files if LBC 
077 95 40$: 
05 0077 96 RSB 
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Get slp file node 


OK if LBS 
Signal error 


Clear new memory 


Set node pointer 
Insert file priority number 
Initialise audit string descriptor 


; Initialise audit string descriptor 


Initialise with default string 


3; and NAM block pointer 


; Set up FAB 


; Parse file spec 
; Error if LBC 


Insert new file node 
; Reset defaults 


98 ~SBTTL INPUT_SPEC 

100 ; 

101 ; 

1 ¢ : Inputs: 

1 : RE = Address of file specification 
: ¢ : R? = Length of file specification 
1 § 3; Outputs: 

1 : RO = Success/error status 

} ° ; Subroutine to process input file spec 

1 ; 

111 INPUT_SPEC: 

118 PUSHAL W*VIRT_ADDR : 
11 PUSHAL W*SLP_SIZE 

114 ALLS »G*CIBSGET_VM 

115 LBS =—s_- RO, 10$ : 
116 PUSHL : 
1 CALLS #1,G*LIBSSIGNAL 

118 BRB 20$ 

119 10S: 

120 MOVCS #0,W*O,#0,L°SLP_SIZE, - ; 
121 aw“VIRT_ADDR 

1 : MOVL  W*VIRT_ADDR,R2 : 
1 MOVB  R11,SLP$B FELENOCR2) : 
124 MOVAL SLP$T T(R2), = : 
125 SLP$Q~AUDDS+4 (RO) 

126 MOVAL SLPST-AUCST(R2), = 

127 SLP$Q"AUCDS+4 (RO) 

128 PUSHR #*M<R2> : 
129 MOVW W*DEF_AUDIT,SLP$Q_AUCDS(R2) 
130 MOVC3 W*DEFTAUDIT, aW*DEF_AUDIT+4, - 
131 SLP$T~AUCST(R2) 

138 POPR #*M<R2> 

1 MOVL R2,R3 

134 ADDL  #SLP$T_NAM,R3 

135 MOVAL W*INPUT_FAB,R4 

136 SFAB_STORE FAB=R4, - 

137 NAM = (R3S, = 

1 : FNA = (RO). FNS = R7 

1 SNAM_STORE NAM = R$, - 

140 BID = #NAMSC_BID, - 

141 BLN = #NAMSC~BLN 

148 BSB PARSE_SPEC 

14 BLBC =OséR 

144 INSQUE (R2),aW*FILE_NODES+4 

145 MOVL  NAMSL_ESA(R3),FABSL_DNA(R4) 
146 MOVE §§ NAMSB~ESL(R3) .FABSB_DNS(R4) 
147 20$: 

148 RSB 
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Subroutine to parse file-spec string and put expanded string 
into dynamic memory buffer 


M block address 
8 block address 


Outputs: 
RO = Success/error status 
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Sow 
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PUSHR  #*M<R2,R4> 
BSB GET_FS_NODE ; Get file-spec node 
41 BLBC _—RO, 20 : Error if LBC 
0 SNAM_STORE NAM = R3, = 
ESA = @W*VIRT_ADDR, ESS = #255 
1 SPARSE FAB = R4 ; Parse file name string 
450 €8 011 BLBS 0,108 : OK if LBS 
CAG) «ODD ONT PUSHL FABSL_STV(R4) : Signal error 
50 DD PUSHL RO 
ERRMSG PRSERR,<R6,R7> 
00000000'GF 02 FB CALLS #2 G*LIB$S{GNAL 
06 11 4 ve BRB 208 
52 OB AS’ 9A 4 MOVZBL NAMS$B_ESL(R3),R2 ; Get expanded string size 
1F 10 4 a BSB RETURR_FS NODE : Return unused part of node 
16 BA 014 POPR #*M<R2,R4> 
05 014 RSB 


voo~000° GET.FS 


Get node 
Inputs: 


: None 
: Outputs: 

3 RO uccess/error status 

: DOR = pyeress of block 
: IZE = Size of block 


= § 
VIRT_A 
FILETS 
.ENABL LSB 
GET_FS_NODE: 

0000'CF 00000100 8F 0 vbinadhig mov. 
O000'CF DF 


setertepeeded 9¢ te 


DOODOCOCOCOCOCVOOOOOOOOOMMOMMODDD 


NOUS WN OC ODNAU EW OOODNOUNE 


r of 
= Address of node 
= Size of node 


rror status 
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ETURN_FS_NODE: 
ADDL 


#7,R 
sve 26 W*FILE_SIZE 


ADDL2 R2,W*VIRT_ADDR 
PUSHAL W°VIRT_ADDR 


W*FILE SIZE 
CALLS #7 -G L TOSFREE_vA 
8 RO,20 


; 
808 


F 
000 
00000000 ' GF 


09 


a 
: 
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ao MANDO ON S200 
oF SOU TOWN>?ro 


RO 
CALLS) = #1,G*LIBSSIGNAL 


Oo 
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~-DSABL LSB 


bytes in node used 
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16-SEP-1984 02:16:37 VAX/VMS Macro V04-00 Pa 
NODE, RETURN_FS_NODE aoe Pi 95:48:34 ESUNL SRCISUMFILES MAR; 1 wes 
3 ~SBTTL GET_FS_NODE, RETURN_FS_NODE 
: Subroutines to get and return file specification node 


Set size of expended string buffer 
Push parameters 


Error if LBC 


dress of memory returned 
ze of mempory returned 


Round up to quadword 

Compute number of bytes to return 
None if EQL 

Address of bytes to return 

Push parameters 

OK if LBS 


Signal error 
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1 40 -SBTTL OUTPUT_FILE 
ae 
i if ; Subroutine to get output file 
196 45 OUTPUT_FILE: 
56 0008 gf 4 196 23 MOVAL W*INPUT_BUF ,R6 ; Get address to put file name string 
0 ° 138 4 BSBW eG TF ste ; Get next file 
D 1 48 TSTL R ; Is file spec null (0 bytes) 
H 1 1A 49 BEQL eps : il os Q 
1 E9 1A 50 BLBC R not last file 
0000'CF 4 ‘BF AB OQITA 2 BISW #MERM OUTPUT ,W*MERGE Funes : Flag output file specified 
; 3 mf 43 1a ; ve Cour UT Wn Re and FAB addresses 
1B6 54 Srae STORE FAB = R4, FNA = (R6), FNS = R7 
FF4O0 0 8=—«. 330 1BE 55 PARSE_SPEC 
32 11 it 2$ 108 BR cB” 40$ 
gic 58 "ERRMSG ONEOUT 
sé OID? 20 20$ ibis — 
09 58 £9 107 ice ee ot at end of Line if LBC 
0000' CF 0000 ' 8F AA 1DA 66 BICW amen OUTPUT ,W*MERGE _ruabs™ ; Flag no output file 
Aen Be 
gree 65 ; ERRMSG NULLFS ; Report error 
O1F5 66 40S: 
05 O1F5 67 RSB 
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O274'CF 03 
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~SBTTL GETFILE 


Subroutine to get next file spec from command Line 


= Address to put file spec string 


= § 

= Address of file-spec 

= Size in pi be of file-spec 
=C erminate flag 


file-spec aging 
Initialise C..J flag 


=» 
ims 
. 


GETCHAR 3; Get next character 
150$ ; Error if LBC 
ebs : End of Line if EQL 
#2,W*LOCCHAR ; Space or tab? 
0$ ; Yes if NEQ 
0$ 
ETCHAR ; Get next character 
0,150$ ; Error if LBC 
268 : End of Line if EQL 
aan ; Special character 
O§-40s ; Normal character 
$-40$ :> 
0$-40$ s< 
0$-40$ : a 
Be-e0s st 
att { 
- ; Space 
0$-40$ 3 Tab 
3 ; Clear C..] fla 
0$ . 
1,R3 ; Set C..J] fla 
80$ . 
#0,R3,130$ : If ',* but in C..J] process as normal 
BG. thO)* ; Copy byte to file-spec string 
g : and increment size 
20$ ; Back for next character 
GETCHAR ; Get next character 
RO,150$ ; Error LBC 
120$ ; End of Line if EQL 
R5,#3,W*LOCCHAR : Trailing character? 


F 6 
voerO00 GETFILE Mereee iT 8bs Pe:88i 8 NAMES Tegner Vee-O8,., «= Page Th, 


03 00 50 F CASEB RO,#0,4 
90 8 ; : 100$: .WORD 1 §-{ $ ; No 
. 8 WORD - 3 
FFEF 9 WORD -1 : Space 
FFEF 2 0 nes ;WORD $-1 : Tab 
9000" CF D7 D ‘ DECL  W*CMD_INPUT_POS : Back-up Line pointer 
OOO'CF D6 6 I sins INCL W*CMD“INPUT“SZE 
58 4 9 6 5 MOVL #1,R8 ; Set for no more input files 
eee 6 $ BRB 146$ 
- 1308: 
58 D4 A 8 CLRL R8 ; Set for more input files 
6C 140$ 
50 01 dO 026€ 340 MOVL  #1,R0 
6F 341 1508: 
0040 8F BA 6 4¢ POPR #*M<R6> 
Se 
3E 3C 5D 5B 2C 20 09 0274 345 LOCCHAR: LASCII <*X9>/ ,CI<>/ 


vou~000° 


9300 4 
0 1 
59 Q000'CF 

58 0000°CF 
29 
OF 50 
pot 
00000000 ' GF 9¢ 
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58 0028'CF 

59 §=—- 0022" CF 
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55 

59 

2D. 55 

ef 
9 
16 

OOSO'CF  0001'CF 
0034'CF  0000'CF 
B5 
23 
8 
14 
OA 

000'CF 

dooo'er 39 
55 
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GETCHAR: 


10$: 


20$: 


30$: 


40$: 


50$: 


4 
e) 
o 
oO 
w 


202 708: 
4 : 


; Outputs: 
: ° R 


50$ 
MOVAL W*PROMPT CONT+1, 


MOVL z 
MOVL = R9.W°CMD“INPUT"S 
TSTL RS : 


"SrSEP=1984 98:56:51 ESUmvsecTsumPiLes-nar;1 =" 


-SBTTL GETCHAR 


; Inputs: 
Non 


uccess/error status 
er 


if end of Line 
sy if valid character in R5 
PUSHR #*M<RB,R9> 
MOVL #1,R0 ; 
MOVL W*CMD_INPUT_SZE.R9 ; 
MOVL § W°CMD-INPUT~POS.R8 : 
BNEQ 30S : 
$cET RAB = CMD_INPUT_RAB : 
PUSHL W*CMD_INPUT_RAB+RABSL_STV 
PUSHL 
CALLS #2,G*LIBSSIGNAL 
BRB 70$ 
MOVL §_ W*CMD_INPUT_RAB+RABSL_RBF , 
MOVZWL W*CMD-INPUT~RAB+RABSW_RSZ. 
TSTL = RO : 
BEQL 40% ; 
MOVE  (RB)+,R5 : 
DECL R ; 
CMPBseaRS , #*A/=/ : 
BNEQ 60$ : 
TSTL RO ; 
BNEQ 


W*°CMD_INPUT RAB+RABS$L_PBF 


MOVB W*PROAPT CORT 


W*CMD_INPUT_RAB*RABSB_PSZ 


BRB 

CLRL R5 : 
CLRL R8 3 
BRB 60$ 

ERRMSG JRYPRD 3 
BRB 0$ 


R8,W*CMD INPUT POS : 


; Subroutine to get next character from command Line 


; Assume success 

; Set command size ; 

; Set command input position 
; Have a command Line if NEQ 


Prompt for and get next command iine 
OK if LBS 
; Signal error 


R8 ; Reset command Line position 
R9 ; and size 


; Any characters in Line? 
No if EQL 


; Get character 
; Decrement character count 
; Continuation character? 


f not equa 


; Last character on Line? 
; No if NEQ 


Set continuation prompt 


; Clear character 


Clear valid command Line flag 
Issue error message 
Save command position 


and size 
Set condition codes 


H 6 
GETCHAR "OrSee Tbs 1:48: 8y HMMS TRG vee eke, «= Pase 1B, ve 
0300 BF BA ORFF 404 POPR —#*HCRB, RO> 


1 6 a : ine 
vo O08 OPEN_FILES "Bree bbe Pe:48iat FSMAMeS eGne Vee Ok, = Pave 14, vo. 
LSBTTL OPEN_FILES 


Procedure to open slipr input and output files 


Inputs: 
R11 = number of input files 


; Outputs: 
: Non 


OPEN_FILES:: 
WORD 


Foe oP oP oe Po ot ot ot ot tt at at a ee 


WWININIWIononononononononon) 2] 2 2 2 3 DO 


MEW (OO ONA UE WN" OOONOAOUS UN" O0OOn 


GUSMNMMAONMDDORRRERRR RR RRR RE 


0000 0 
5A OO00'CF ODE 108 MOVAL W*FILE_NODES,R10 i Initialise file nodes pointer 
5A $A DO "MOVE ~=—s (R10) ,R10 : Get next node 
00000000'8F 5A D4 0 CMPL R10, #FILE_NODES : At end of List? 
07 } 1 BEQL 0$ : Yes if 
1 1 1 BSB OPEN_ INPUT 3 peer aye file 
EF 5 . 031 BLBS RO,10$ ; OK if LBC 
i§ 11 0 a. BRB 30$ 
0004'CF 01000000 8F C 1 : BISL #FPSSM_NAM,W* INPUT _FAB+FABSL_FOP : 
0000' CF 0000" SF 8 ; Bitw GRERR_OUTPUT .U°MERGE_FLAGS Was output file specified? 
; No 
0099 30 30s BSBW CREATE_OUTPUT ; Create output file 
04 3 > 


53 


52 


0000' CF 
0000' CF 


vw 
no 


08 A4 
00000000 ' GF 


Ore Oe Se Oe Oe ee ee ee 


oO 


m 
Po a a a a nme 


Fa at at 
DDS DEDEDE DDD DE I BB BBB PEE EI 
CONAN EAP CO OONOA UE WN)" CO OO NA UNS UW" OC 00 


DONOUSWN—Ow”O 


WWI.AAWAA AAAI AWW 


4 
4 
4 
4 
5 
i 
? 
? 
7 
8 
8 
8 
8 
9 
9 
9 
9 
9 
A 
A 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
6 
9 
9 
? 
? 
C 
F 
3 
6 
9 
8 
1 
? 
A 
C 
¢ 
0 
4 
A 
? 
B 


oo sOoOSOo OFS —WwoUOomMmMm om 
USF Woo FPO —OFPOFOO?O 
SOOOSoocK OOOCOCOCOCOCOCCOOOOOOOOOoOO 


COOL 
Foy oY oY oY ot ot of ot ot ot ot ot 
ANNAN 


» SBTTL 


SrSEP=1 


OPEN_INPUT 


EP~ 
EP- 


: Subroutine to open input file 


R10 = File node address 


Outputs: 


RO = Success/error code 


PEN. INPUT: 
MOVL 


ADDL 
MOVAL 
BSBW 


R10 
pte NAM,R3 
WrINPUT FAB,R4 


BLBC $ 
SFAB _STORE PAB = R4, NAM 


FNA 
SNAM site es 


SOPEN 


FAB = Ru : 
RO, 208 
at = R4 


0,208 
NAMS$B_RSL(R3) ,R2 
RETURN_FS_NODE 


FABSL ~fNat 
opener "etue 


FABSL “STS(R4) 
#2,G*CIBSSIGNAL 


W*SLP$B_FLAGS(R10) 3 


AX/VMS Macro V04-00 
SUM. SRCJSUMFILES.MAR; 1 


be 18:56:34 


; Set NAM block address 

: and FAB addres 

Get FS_RODE- ; Get node vee resultant file spec 
(R3),- 

= aNAMsi eens) FAS. = NAM$B_ESL(R3) 


SS = #0, 

aviIRT “ADDR, RSS ‘= “#255 

Open input file 
if LBC 


; Close file to release FAB 
if LBC 


; Get a B- of bytes used 
; and return rest of node 


; Return Expanded fs node 


; Get file spec 


Initialise flags 


al "9r8 $ AX/VMS Macro V04-00 


~SBTTL CREATE_OUTPUT 


P=19B6 16:56:31 


CREATE _OUTPUT 


; Subroutine to create output file 


: Inputs: 

; . Non 

: Outputs: 

3 RO = Success/error status 

EREATE OUTPUT 
53 B08 ee OVAL W*OUTPUT_NAM,R3 ; Set NAM and 
54 000'CF VAL we OUTPUT. FAB, R4 ; FAB pointers 

SPABL ST 1 AB ="R4, 


= onanet. ESA(R3), ss = ir. ESL(R3) 


FNA 
. TLFS 


SUM. SRCJSUMFILES.MAR; 1 (11) 


RW HVMMMMO SO OOOOOOOOOOOOOO 


mus og 
oo mm 
SBE EF FWA NANI 


oo 
. § 
ee 
C 484 
Be 
te 
C€ 4 § 
C 490 
C 491 
C $36 
¢ 49 
1 494 
6 $32 
FD69 8 199 BSBW ilée_ ~Spec node 
7¢ 50 0 498 BLBC . ives if LBC 
O3E6 499 SNAM -STORE ANAM = R3, ESS = #0, 
8 6 500 B+ heals ADDR, “RSS = “125s 
6 501 SCREATE PAB = 3 Open. yi file 
05 50 €8 O3FF 288 BLBS RO 108" 3 
OC AS ODD 0 02 0 PUSHL FABSL_STV(R4) : Signal error 
14 11 8 Be 10$ BRB 20$ 
6 07 Bg SCONNECT an Sos OUTPUT_RAB 3; Connect RAB to FAB 
050 €8 0414 50 BLBS ; OK if LBS 
OodC'CF DD 7 308 a PUSHL OUTPUT _RAB+RABSL_STV ; Signal error 
50 oD 38 330 PUSHL RO 
56 gf A400 1D 11 MOVL ay it tthe a ; Get file spec 
57 4 AG 9A 1 \¢ MOVZBL FABSB-FNS(R4),R 
5 1 ERRMSG CREATE,<R6, R7> 
6— 00 B 14 MOVL (SP) »R ; Reset RO 
00000000'GF 02 FB : 15 CALLS 4: G*LIBSSIGNAL 
1B 11 43 18 nat BRB 40$ 
52 03 Ad 9A 0 47 18 MOVZBL NAMS$B_RSL(R3),R2 ; Get number of bytes used 
FDIA 30 0448 19 BSBW RETURR_FS_NODE ; and return rest of node 
1150 €E9 OQ44E 0 BLBC RO,40$ ; Error of LBC 
52 D4 0451 1 CLRL Rk ; Return expanded ts node 
000'C CAS DO 0453 ‘ MOVL FABSL_FNA(R4),W*VIRT_ADDR 
0000'CF 4 AG 9A 0459 MOVZBL FABSB_FNS(R4) ,W*FILE_SIZE 
FD06 «=30-—«045F 4 BSBW - RETURR_FS_NODE 
rb 5 408: 
05 046 6 RSB 


16=SEP=1984 02:16:37 VAX/VMS Macro v04-00 Page 17 SUF 
vive tt CLOSE_FILES mer etre SUM. SRCJSUMF ILES.MAR;1 . (12) v04 
i ~SBTTL CLOSE_FILES 
4 ; 
rh ? 3; Procedure to close files 
46 : : Inputs: 
‘8 : : File List 
46 $ ; Outputs: 
‘2 3 None 
d Si 
26 40 CLOSE_FILES:: 
0000 rh ‘] » WORD 
52 eed oF ret ‘8 Yt Fr AeeUt FAB Re 
52 eed DF rt 1 rf > Sa W*OUTPUT_FAB,R2 
52 or DF rhe ‘3 Bee Begone eRe 
0000'CF D4 47A 549 CLRL W*RANDOM_FILE 
04 047E a3 RET 
Dee 880 | 
bear 338 : Subroutine to close file 
O47F 65555: Inputs: 
ref 228 : R2 = FAB address 
47F 38 : Outputs: 
Af Be 
47F 561 CLOSE: 

Ph TER Be aay apvaarscaay sp ftte pot 
tbe 64 $CLOSE FAB = R2 : Yes it's open so close it 
48D 65 10$: 

05 48D 06 RSB 
048E 6 
ae 
48E 4 : END 


SUMFILES 
Symbol table 


aaa 
ated Tt 


eee zzemmmnnm 
—— 
aamm 


Sees 
DDBDBBOWWD 


SOoOoooooooooooooooooo 
S533 5S 


Soooooooooo 


RReeKeee 
eeeeeene 
RReeeeee 


00000084 
000003CC 


REReRERE 
Reeeeeke 


SOooooooo 


SOOO oCoOoooooooooooo 
SOoOoOCoCooooooooooooo 
SoOOOoooooooooooocoo 
SOONMONVUWWOOCSCOSO—-So-— 
MOO DWLOOLUIMPOOrOLL>Yo 


RReeeeee 
Reeeeeee 


geeeeenee 
eenreeree 
geereeee 


000078 f 


geeereene 
gereeeee 
gereeaene 
00000274 
geeerere 
eeeneeee 
geererene 
getenene 


pe) 
<x OM 


pares 


SOOCCCOOCOOCOOOOOOooO 


POPDPPIPIPIPIMPUINIMINIAININININININN 


Mm 6 


"SrSEp-1986 96:58:31 


- 3 

m 

=z 
=~ we 


PROMPT_ INPUT 
PROMPT- OUTPUT 
RA $2 


AX/VMS Mac 
SUM. SRCISU 


ro 

MF 

Reeeeeee M 
eeekeeee x 
aeereree x 
x 


RRReeeee 


Si, 


00000196 R 
eeereeee 
eeereene 
00000101 R 
eeeeeeee 
eeeeeeee 
eeereeee 


pelolofoloioloioioi=) 
PMOPOPOPONMoPofofponornys 


x<xx<x = OM 


RRERRAEE 
REERRERE 


oO 

Oo 

So 

oO 

= 

o 

oo 

z 
<>< 

ooo 

Mror 


eeeeeeee 

eeeeeeee GX 
aeeeeene GX 
geeerene GX 
eeeeeeee GX 
eeeeeere GX 
werereee 6X 
eeeeenee 


OOooooCooO 


v04-00 
ILES.MAR;1 


Page 


FOVMOMMOOOMMOOOWMs « « 
Se eh ee oe oe el el ee ee | ce 
DO es st ee bs bs ps ps os ps 4 T 4 EE 


NAM 
NAM 
NAM 
NAM 
NAM 
$12 
SUM 
SUM 
SUM 
SUM 


SUMFILES — EP=1 384 0e: 16: 3 AX/VMS 5 Gecre v04-00 Page 19 
Psect synopsis “-SEP-19 SUM. SRCIJSUMF ILES.MAR;1 (12) 


beeen et ee ewe ee enon} 


! Psect synopsis ! 


tere neste meee eee ant 


PSECT name Allocation PSECT No. Attributes 
p08 a09¢ 3-3 0¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
ABS$ 00 » 1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SCODE 00000 ( 1166.) O02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 


tener ween eo nm ence meme ec 


5 Per formance indicators” 


Phase Page faults CPU Time Elapsed Time 
Initialization 31 80:00:00 .09 00:00:00. 36 
Command processing 110 0:00:00.71 PD 
Pass 304 00:00:11.27 0:00:16.98 
Symbol table sort 0 00:00:00.94 0:00:01.01 
Pass 2 119 83:83: §-08 0:00:03.61 
Symbol table output 14 00:00:00.09 0:00:00.09 
Psect synopsis output 00:00:00.03 88 +88 #88 2 
Cross-reference output 00:00:00.00 00:00: 3-38 
Assembler run totals 58 00:00:15.60 00:00:23.90 


The working set_lLimit was 1200 pages. 

57645 bytes (113 pages) of sirtus memory were used to buffer the intermediate cod 

There were 40 pages of symbol table space allocated to hold 731 non-local and 48 focal symbols. 
655 source lines were read in Pass 1, producing 19 object records in Pass 2. 

38 pages of virtual memory were used to define 27 macros. 


Macro Library name Macros defined 
“$255$DUA28: SYS. 0BJIL18. MiB; 1 
“$255$DUA28:(SYSLIBISTARLET. MLB; 2 § 
TOTALS (all Libraries) 


969 GETS were required to define 23 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SUMF ILES/OBJ=OBJ$:SUMFILES MSRC$:SUMCOM/UPDATE=(ENHS$: SUMCOM) +MSRC$: SUMF ILES/UPDATE=(ENH$: SUMF ILES) +EXECMLS$/LIB 


AL EQUIPMENT CORPORATION 
DENTIAL.- AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


IGIT 
ONFI 


369 


D 
C 


